home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qmenu10.zip / SIGN.BAS < prev   
BASIC Source File  |  1992-04-06  |  1KB  |  36 lines
  1. DIM sign$(16)
  2.  
  3. CLS
  4. sign$(1) = STRING$(80, 223)
  5. sign$(2) = "  ╔═══╗    ╔═══╗"
  6. sign$(3) = "  ║   ║    ║   ║"
  7. sign$(4) = "  ║   ║    ║   ║"
  8. sign$(5) = "  ║   ║    ║   ║"
  9. sign$(6) = "  ║   ║    ║   ║"
  10. sign$(7) = "  ║   ║    ║   ║"
  11. sign$(8) = "  ║   ╚════╝   ║"
  12. sign$(9) = "  ║            ║ ╔══════ ╔═╗       ║ ║       ║ ╔══╗  ╔══╗  ╔════╗ ╔═╗       ║"
  13. sign$(10) = "  ║            ║ ║       ║ ╚═╗     ║ ║       ║ ║  ║  ║  ║  ║    ║ ║ ╚═╗     ║"
  14. sign$(11) = "  ║            ║ ║       ║   ╚═╗   ║ ║       ║ ║  ╚══╝  ║  ║    ║ ║   ╚═╗   ║"
  15. sign$(12) = "  ║            ║ ║════   ║     ╚═╗ ║ ║       ║ ║        ║  ║════║ ║     ╚═╗ ║"
  16. sign$(13) = "  ║            ║ ║       ║       ╚═║ ║       ║ ║        ║  ║    ║ ║       ╚═║"
  17. sign$(14) = "  ║            ║ ║       ║         ║ ║       ║ ║        ║  ║    ║ ║         ║"
  18. sign$(15) = "  ║            ║ ╚══════ ║         ║ ╚═══════╝ ║        ║  ║    ║ ║         ║"
  19. sign$(16) = STRING$(80, 220)
  20.  
  21. FOR set = 1 TO 16
  22.       LOCATE set + 3, 1: PRINT sign$(set)
  23. NEXT
  24.  
  25. SLEEP 15
  26.  
  27. CLS
  28.  
  29. LOCATE 13, 20: PRINT "SIGN.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
  30.  
  31. SLEEP 7
  32. CLS
  33.  
  34. RUN "RUNMENU"
  35.  
  36.